home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Multi_skin185911312005.psc / active vskin / apis.bas next >
BASIC Source File  |  2005-02-27  |  6KB  |  161 lines
  1. Attribute VB_Name = "apis"
  2. Public Declare Function WindowFromPoint Lib "User32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
  3.  
  4. Public Declare Function GetCursorPos Lib "User32" (lpPoint As POINTAPI) As Long
  5.  
  6. Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
  7.  
  8.  
  9. Public Declare Function SetWindowPos& Lib "User32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
  10. Public Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  11. Public Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  12. Public Declare Function SetLayeredWindowAttributes Lib "User32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
  13.  
  14.  
  15. Const conHwndTopmost = -1
  16.  
  17.  
  18. Public Const lport = 1300
  19. Public Const cport = 1350
  20. Public Const cip = "127.0.0.1"
  21. Public cuser As String
  22. Public userr As String
  23. Public passs As String
  24. Public Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  25. Public Const WM_CUT = &H300
  26. Public Const WM_COPY = &H301
  27. Public Const WM_PASTE = &H302
  28. Type TypeRGB 'This user type is used to convert long decimals to Bytes
  29.     R As Byte
  30.     G As Byte
  31.     b As Byte
  32. End Type
  33. Public Type RECT
  34.         Left As Long
  35.         Top As Long
  36.         Right As Long
  37.         Bottom As Long
  38. End Type
  39. Public doit As Boolean
  40. Option Explicit
  41.  
  42. Dim hwndDest            As Long
  43. Dim mlWidth             As Long
  44. Dim mlHeight            As Long
  45. Dim mbFormSwitch        As Boolean
  46. Dim mbWindows98orHigher As Boolean
  47. '
  48. ' Constants used by FlashWindowEx/FLASHWINFO
  49. '
  50. 'Stop flashing
  51. Const FLASHW_STOP = &H0
  52. 'Flash the caption
  53. Const FLASHW_CAPTION = &H1
  54. 'Flash the taskbar button.
  55. Const FLASHW_TRAY = &H2
  56. 'Flash both
  57. Const FLASHW_ALL = FLASHW_TRAY Or FLASHW_CAPTION
  58. 'Flash continuously until FLASHW_STOP is set
  59. Const FLASHW_TIMER = &H4
  60. 'Flash continuously until window comes to foreground
  61. Const FLASHW_TIMERNOFG = &HC
  62.  
  63. Const VER_PLATFORM_WIN32_WINDOWS = 1
  64.  
  65. Public Type FLASHWINFO
  66.    cbSize    As Long
  67.    hwnd      As Long
  68.    dwFlags   As Long
  69.    uCount    As Long
  70.    dwTimeout As Long
  71. End Type
  72.  
  73. Public Type OSVERSIONINFO
  74.     dwOSVersionInfoSize As Long
  75.     dwMajorVersion      As Long
  76.     dwMinorVersion      As Long
  77.     dwBuildNumber       As Long
  78.     dwPlatformId        As Long
  79.     szCSDVersion        As String * 128
  80. End Type
  81.  
  82. Public Type POINTAPI
  83.     X As Long
  84.     Y As Long
  85. End Type
  86. Dim XY() As POINTAPI
  87.  
  88. Public Declare Function GetVersionEx Lib "kernel32" Alias _
  89.     "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
  90.  
  91. Public Declare Function CreateEllipticRgn Lib "gdi32" _
  92.     (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
  93.     ByVal Y2 As Long) As Long
  94.     
  95. Public Declare Function CreatePolygonRgn Lib "gdi32" _
  96.     (lpPoint As POINTAPI, ByVal nCount As Long, _
  97.     ByVal nPolyFillMode As Long) As Long
  98.  
  99. Public Declare Function SetWindowRgn Lib "User32" _
  100.     (ByVal hwnd As Long, ByVal hRgn As Long, _
  101.     ByVal bRedraw As Long) As Long
  102.     
  103. Public Declare Function FlashWindow Lib "User32" _
  104.     (ByVal hwnd As Long, ByVal bInvert As Long) As Long
  105.  
  106. Public Declare Function FlashWindowEx Lib "User32" ( _
  107.     fwi As FLASHWINFO) As Boolean
  108.  
  109. Declare Function ReleaseCapture Lib "User32" () As Long
  110. Public Declare Function GetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByRef crKey As Long, ByRef bAlpha As Byte, ByRef dwFlags As Long) As Long
  111.  
  112.  
  113.  
  114. Public Const GWL_EXSTYLE = (-20)
  115. Public Enum TransType
  116.   LWA_OPAQUE = 0
  117.   LWA_COLORKEY = 1
  118.   LWA_ALPHA = 2
  119. End Enum
  120. Public Const RGN_OR = 2
  121. Public Const WS_EX_LAYERED = &H80000
  122. Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
  123.  
  124. Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
  125.  
  126. Public Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
  127.  
  128. Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  129.  
  130. Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
  131.  
  132. Public Const SRCCOPY = &HCC0020
  133. Public Declare Function BitBlt Lib "gdi32" (ByVal hdestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
  134.  
  135. Public Declare Function RedrawWindow Lib "User32" (ByVal hwnd As Long, lprcUpdate As Any, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
  136. Public Const WM_SETREDRAW = &HB
  137. Public Const RDW_INVALIDATE = &H1
  138. Public Const RDW_INTERNALPAINT = &H2
  139. Public Const RDW_ALLCHILDREN = &H80
  140. Public Const RDW_UPDATENOW = &H100
  141. Public Const WM_PAINT = &HF
  142.  
  143. Public Const WM_NCLBUTTONDOWN = &HA1
  144. Public Const HTCAPTION = 2
  145. Public Const HTLEFT = 10
  146. Public Const HTRIGHT = 11
  147. Public Const HTTOP = 12
  148. Public Const HTTOPLEFT = 13
  149. Public Const HTTOPRIGHT = 14
  150. Public Const HTBOTTOM = 15
  151. Public Const HTBOTTOMLEFT = 16
  152. Public Const HTBOTTOMRIGHT = 17
  153. Public Const WM_NCLBUTTONUP = &HA2
  154. Const HWND_TOPMOST = -1
  155. Const HWND_NOTOPMOST = -2
  156. Const SWP_NOSIZE = &H1
  157. Const SWP_NOMOVE = &H2
  158. Const SWP_NOACTIVATE = &H10
  159. Const SWP_SHOWWINDOW = &H40
  160.  
  161.